home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / arpeg.mpl next >
Encoding:
Text File  |  1996-02-06  |  1.6 KB  |  119 lines
  1. 16040
  2. #
  3. #
  4. #
  5. #    Arpeg.mpl
  6. #
  7. #    An aperggiator of any chord played 
  8. # 
  9. #           Author           ID               Date
  10. #       ------------    -----------          ---------
  11. #       Serge Sibony    100417,2633          12/12/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. #
  19. #
  20. # This effect will split any chord played
  21. #
  22. #
  23.  
  24.  
  25.  
  26. Label Main
  27.  
  28. # The channel to be used is the channel 4
  29. # if the midiin in coming from any other channel
  30. # forget it 
  31.  
  32. CHAN!= 4
  33. GOTO END
  34.  
  35. #
  36. # forget any note off
  37. #
  38.  
  39. VEL== 0
  40. GOTO END
  41.  
  42. #
  43. # at the first run, memorize the current time
  44. #
  45.  
  46. V== 1 0
  47. GOTO FIRST
  48.  
  49. #
  50. # if current time - start time < beat (480), this note belongs to the chord
  51. #
  52.  
  53. V=TIME 2
  54.  
  55. V-=V 2 1
  56.  
  57. V> 2 480
  58. GOTO OUT
  59. #
  60. # out : this label is used at the start of a new chord
  61. #
  62.  
  63. V=TIME 1
  64.  
  65. V+= 3 1
  66. V=V 4 3
  67. V*= 4 120
  68. V-= 4 2
  69.  
  70. #
  71. # new note to be played
  72. # the delta time between two notes is 1/4 beats (120) 
  73. #
  74.  
  75. TIME+=V 4
  76.  
  77. OUTMIDI
  78.  
  79. #
  80. # do not forget to stop your note
  81. #
  82.  
  83. TIME+= 120
  84. VEL= 0
  85. OUTMIDI
  86.  
  87. GOTO END
  88.  
  89. LABEL FIRST
  90. V=TIME 1
  91. GOTO END
  92.  
  93. LABEL OUT
  94. OUTMIDI
  95. TIME+= 120
  96. VEL= 0
  97. OUTMIDI
  98.  
  99. #
  100. # new chord
  101. #
  102. V= 3 0
  103. V=TIME 1
  104.  
  105. END
  106.  
  107.  
  108.  
  109. LABEL END
  110. END
  111.  
  112. descript arpeggiator ( from Noel Cosgrave )
  113. descript An arpeggiator takes a chord and splits it into
  114. descript it's constituent notes which are then played serially
  115. descript (only one at a time) rather than as a chord
  116. descript ( it works only on channel 4 )
  117. descript  draft version
  118.  
  119.